10 ' Сумма ряда с известным количеством членов
20 INPUT "Аргумент X = "; X
30 INPUT "Число слагаемых = "; K% ' K% - целое!
40 S = 1: C = 1
50 FOR I = 1 TO K%
60 C = C / X
70 S = S + C
80 NEXT I
90 PRINT "Сумма ряда для "; K%; " слагаемых = "; S
100 END